RANDOMIZE TIMER
SCREEN 12
WIDTH 80, 60
VIEW PRINT 1 TO 60
CLS
DIM I AS INTEGER
FOR I = 1 TO 80 * 60
    IF INT(RND + .5) = 0 THEN
        PRINT "/";
    ELSE
        PRINT "\";
    END IF
NEXT I
DIM NEXTKEY AS STRING
DO
    NEXTKEY = INKEY$
LOOP UNTIL NEXTKEY <> ""
WIDTH 80, 30
SCREEN 0